home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global gScript
- set tSprite to rollOver()
- if the mouseV > the bottom of sprite the pThumbSprite of gScript then
- set tDirection to "#down"
- else
- if the mouseV < the top of sprite the pThumbSprite of gScript then
- set tDirection to "#up"
- else
- set tDirection to "#none"
- end if
- end if
- set tCurrButton to getaProp(the pButtonObjectList of gScript, tSprite)
- if voidp(tCurrButton) then
- exit
- end if
- mButtonDown(tCurrButton, tDirection)
- end
-
- on mouseUp
- global gScript
- set tCurrButton to getaProp(the pButtonObjectList of gScript, rollOver())
- if voidp(tCurrButton) then
- exit
- end if
- mButtonUp(tCurrButton)
- end
-